home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 May / Macworld (1998-05).dmg / Games World / Shareware Games / Arcade / Supreme Commander / Supreme Commander.mac / 00171.ls < prev    next >
Encoding:
Text File  |  1996-01-30  |  1.0 KB  |  44 lines
  1. on mouseDown
  2.   global launchnum
  3.   set timer to 0
  4.   set the timeoutMouse to 0
  5.   set the timeoutLength to 80
  6.   startTimer()
  7.   if the visible of sprite 48 = 1 then
  8.     exit
  9.   else
  10.     if the visible of sprite 40 = 0 then
  11.       WARNING()
  12.       exit
  13.     else
  14.       if the castNum of sprite 40 < 119 then
  15.         puppetSound("generic")
  16.         puppetSprite(40, 1)
  17.         set the ink of sprite 40 to 8
  18.         set the castNum of sprite 40 to launchnum + 1
  19.         set the foreColor of sprite 40 to 156
  20.         updateStage()
  21.         wait(5)
  22.         set the foreColor of sprite 40 to 0
  23.         updateStage()
  24.         wait(5)
  25.         set the foreColor of sprite 40 to 163
  26.         updateStage()
  27.         set launchnum to launchnum + 1
  28.       else
  29.         puppetSound("generic")
  30.         updateStage()
  31.         wait(30)
  32.         set the visible of sprite 40 to 0
  33.       end if
  34.     end if
  35.   end if
  36.   set the visible of sprite 41 to 0
  37.   set the visible of sprite 6 to 1
  38.   updateStage()
  39.   puppetSound("away")
  40.   updateStage()
  41.   wait(30)
  42.   puppetSound(0)
  43. end
  44.